home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / os2 / adaptor.zip / ADAPT.ZIP / adaptor / examples / dalib / random / double.f < prev    next >
Text File  |  1993-03-23  |  280b  |  18 lines
  1.       program real_randoms
  2.  
  3.       parameter (N=100)
  4.  
  5.       double precision A(N), HA(N)
  6. cmf$  layout HA(:HOST)
  7.  
  8.       print *, 'Get ',N,' random numbers (double precision) from 0 to 1'
  9.  
  10.       call cmf_random (A)
  11.  
  12.       HA = A
  13.  
  14.       print 10, HA
  15.   10  FORMAT (4F20.15)
  16.  
  17.       end
  18.